'--------------------------------------------------------
' 执行所有测试用例
'--------------------------------------------------------
Public Sub test_all_case()
    Test_integerLength
    Test_str2Num
End Sub

Private Sub Test_integerLength()
    Dim result As Integer

    ' ---------case1---------
    result = UtilsNumber.intLength(0)
    Debug.Assert result = 1

    ' ---------case2---------
    result = UtilsNumber.intLength(1234.456)
    Debug.Assert result = 4

    ' ---------case3---------
    result = UtilsNumber.intLength(123)
    Debug.Assert result = 3
End Sub

Private Sub Test_str2Num()
    Dim result As Double

    ' ---------case1---------
    result = UtilsNumber.str2Num("0")
    Debug.Assert result = 0

    ' ---------case2---------
    result = UtilsNumber.str2Num("1234.456")
    Debug.Assert result = 1234.456

    ' ---------case3---------
    result = UtilsNumber.str2Num("123")
    Debug.Assert result = 123
End Sub
